(ps-mode): Set comment-start and

comment-start-skip locally.

diff --git a/lisp/progmodes/ps-mode.el b/lisp/progmodes/ps-mode.el
index 5c821d64a74bd5708cf41e0e56e1a74ab94aa29a..3d011672d8edacdba5ccdcb649ba38f37c191467 100644 (file)
--- a/lisp/progmodes/ps-mode.el
+++ b/lisp/progmodes/ps-mode.el
@@ -533,6 +533,9 @@ Typing \\<ps-run-mode-map>\\[ps-run-goto-error] when the cursor is at the number
         mode-name  "PostScript")
   (use-local-map ps-mode-map)
   (set-syntax-table ps-mode-syntax-table)
+  (set (make-local-variable 'comment-start) "%")
+  (set (make-local-variable 'comment-start-skip)
+       "\\(\\(^\\|[^\\]\\)\\(\\\\\\\\\\)*\\)\\(%+ *\\)")
   (run-hooks 'ps-mode-hook))
 
 (defun ps-mode-show-version ()